home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / Stack Starter ß.976 / Stack Starter fl.976 / card_17335.txt < prev    next >
Encoding:
Text File  |  1988-08-03  |  34.4 KB  |  1,417 lines

  1. -- card: 17335 from stack: in.976
  2. -- bmap block id: 8635
  3. -- flags: 0000
  4. -- background id: 2295
  5. -- name: the sound sampler
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   global Deselect
  9.   lockcard
  10.   if the visible of card field "Text" is true then
  11.     show card field "Pitch"
  12.     show card field "Rate"
  13.   else
  14.     hide card field "Rate"
  15.     hide card field "Pitch"
  16.   end if
  17.  
  18.   put "Music, Instrmt, Effects, People, Animal, Find Snds" into flist
  19.   put offset (Deselect, flist) into it
  20.   if it is zero then hide card field "Test"
  21.   else show card field "Test"
  22.  
  23.   if the visible of card field "Test" is true then
  24.     repeat with i = 17 to 20
  25.       show card btn id i
  26.     end repeat
  27.   else
  28.     repeat with i = 17 to 20
  29.       hide card btn id i
  30.     end repeat
  31.   end if
  32.   pass mouseUp
  33. end mouseUp
  34.  
  35. on idle
  36.   global Deselect
  37.   if deselect <> empty then
  38.     if deselect <> "Text" then set lockText of card field Deselect to true
  39.   end if
  40.   if visible of field "Mouse Loc2" is true then
  41.     put the mouseLoc into field "Mouse Loc2"
  42.   end if
  43.   exit idle
  44. end idle
  45.  
  46. on openCard
  47.   set name of bkgnd btn id 72 to "Prev Card:" && short name of prev card
  48.   set name of bkgnd btn id 73 to "Next Card:" && short name of next card
  49.   pass openCard
  50. end openCard
  51.  
  52. on mouseEnter
  53.   if the icon of card btn id 13 is 18359 then
  54.     lockcard
  55.     put the short name of target into text
  56.     if the short name of target is "Instrmt" then
  57.       put "Instrument" into text
  58.     end if
  59.     if the short name of target is "Keybrd" then
  60.       put "Keyboard" into text
  61.     end if
  62.     put first word of card field "rate" into rate
  63.     put first word of card field "pitch" into pitch
  64.     talk text,rate,pitch
  65.   end if
  66.   pass mouseEnter
  67. end mouseEnter
  68.  
  69. on openCard
  70.   global Deselect
  71.   if Deselect is empty then
  72.     set cursor to 4
  73.     lockcard
  74.     repeat with i = 1 to 6
  75.       if hilite of card btn id i is true then
  76.         send mouseUp to card btn id i
  77.       end if
  78.     end repeat
  79.     mouseUp
  80.   end if
  81.   pass openCard
  82. end openCard
  83.  
  84.  
  85.  
  86. -- part 1 (button)
  87. -- low flags: 00
  88. -- high flags: 8004
  89. -- rect: left=24 top=97 right=147 bottom=63
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 5789 / 5789
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Music
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   global Deselect
  101.   if short name of target is Deselect then
  102.     put empty into Deselect
  103.   end if
  104.   if Deselect <> empty then
  105.     set the visible of card field Deselect to false
  106.     set hilite of card btn Deselect to false
  107.   end if
  108.   set the visible of card field "Music" to not the visible of card field "Music"
  109.   if the visible of card field "Music" is true then
  110.     set scroll of card field "Music" to 0
  111.     set hilite of me to true
  112.   else
  113.     set hilite of me to false
  114.     pass mouseUp
  115.   end if
  116.   put short name of target into Deselect
  117.   pass mouseUp
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 2 (button)
  123. -- low flags: 00
  124. -- high flags: A004
  125. -- rect: left=66 top=97 right=147 bottom=105
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 12157 / 12157
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Instrmt
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   global Deselect
  137.   set icon of me to 12157
  138.   if short name of target is Deselect then
  139.     put empty into Deselect
  140.   end if
  141.   if Deselect <> empty then
  142.     set the visible of card field Deselect to false
  143.     set hilite of card btn Deselect to false
  144.   end if
  145.   set the visible of card field "Instrmt" to not the visible of card field "Instrmt"
  146.   if the visible of card field "Instrmt" is true then
  147.     set scroll of card field "Instrmt" to 0
  148.     set hilite of card button "Instrmt" to true
  149.   else
  150.     set hilite of me to false
  151.     pass mouseUp
  152.   end if
  153.   put short name of target into Deselect
  154.   pass mouseUp
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 3 (button)
  160. -- low flags: 00
  161. -- high flags: 8004
  162. -- rect: left=108 top=97 right=147 bottom=147
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 25845 / 25845
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: People
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   global Deselect
  174.   if short name of target is Deselect then
  175.     put empty into Deselect
  176.   end if
  177.   if Deselect <> empty then
  178.     set the visible of card field Deselect to false
  179.     set hilite of card btn Deselect to false
  180.   end if
  181.   set the visible of card field "People" to not the visible of card field "People"
  182.   if the visible of card field "People" is true then
  183.     set scroll of card field "People" to 0
  184.     play "Pee Wee's Giggle"
  185.     set hilite of me to true
  186.   else
  187.     play "Pee Wee's Scream"
  188.     set hilite of me to false
  189.     pass mouseUp
  190.   end if
  191.   put short name of target into Deselect
  192.   pass mouseUp
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 4 (button)
  198. -- low flags: 00
  199. -- high flags: 8004
  200. -- rect: left=150 top=97 right=147 bottom=189
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 5679 / 5679
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Animal
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   global Deselect
  212.   if short name of target is Deselect then
  213.     put empty into Deselect
  214.   end if
  215.   if Deselect <> empty then
  216.     set the visible of card field Deselect to false
  217.     set hilite of card btn Deselect to false
  218.   end if
  219.   set the visible of card field "Animal" to not the visible of card field "Animal"
  220.   if the visible of card field "Animal" is true then
  221.     set scroll of card field "Animal" to 0
  222.     set hilite of me to true
  223.   else
  224.     set hilite of me to false
  225.     pass mouseUp
  226.   end if
  227.   put short name of target into Deselect
  228.   pass mouseUp
  229. end mouseUp
  230.  
  231.  
  232.  
  233.  
  234. -- part 5 (button)
  235. -- low flags: 00
  236. -- high flags: 8004
  237. -- rect: left=24 top=149 right=199 bottom=63
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 32107 / 32107
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Effects
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   global Deselect
  249.   if short name of target is Deselect then
  250.     put empty into Deselect
  251.   end if
  252.   if Deselect <> empty then
  253.     set the visible of card field Deselect to false
  254.     set hilite of card btn Deselect to false
  255.   end if
  256.   set the visible of card field "Effects" to not the visible of card field "Effects"
  257.   if the visible of card field "Effects" is true then
  258.     set scroll of card field "Effects" to 0
  259.     set hilite of card btn "Effects" to true
  260.   else
  261.     set hilite of me to false
  262.     pass mouseUp
  263.   end if
  264.   put short name of target into Deselect
  265.   pass mouseUp
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 6 (button)
  271. -- low flags: 00
  272. -- high flags: A004
  273. -- rect: left=66 top=220 right=270 bottom=105
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 10019 / 10019
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Text
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   set icon of me to 10019
  285.   global Deselect, Text, Pitch, Rate
  286.   if short name of target is Deselect then
  287.     put empty into Deselect
  288.   end if
  289.   if Deselect <> empty then set the visible of card field Deselect to false
  290.   if Deselect <> empty then set hilite of card button Deselect to false
  291.   set the visible of card field "Text" to not the visible of card field "Text"
  292.   if the visible of card field "Text" is true then
  293.     set scroll of card field "Text" to 0
  294.     set the hilite of me to true
  295.   else set the hilite of me to false
  296.   if the visible of card field "Text" is true then
  297.     put "    Whatever is typed in this field your Macintosh will say when you press the button" && quote & "Say It" & quote &"." into card field "Text"
  298.   else put empty into card field "Text"
  299.   put short name of me into Deselect
  300.   pass mouseUp
  301. end mouseUp
  302.  
  303.  
  304.  
  305. -- part 7 (button)
  306. -- low flags: 00
  307. -- high flags: 8004
  308. -- rect: left=108 top=149 right=199 bottom=147
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 2186 / 2186
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: Tunes
  317. ----- HyperTalk script -----
  318. on mousedown
  319.   global PlaySomething, Tempo, Tune
  320.   --put bkgnd field id 219 into temp
  321.   put the rect of the target into holder
  322.   put item 1 of holder into horiz
  323.   put item 2 of holder into vert
  324.   get PopUpMenu(" Volga Boatman ; Nachtmusik ; Star Trek ; Star Span Banner ; Jingle Bells ; Happy Birthday ; Mozart 40 ; Johnny ; Bethoven's 5th ; Fur Elise ; Charge ; Fast Scales",7, vert, horiz)
  325.   if it is 1 then
  326.     put "c4e a3 d4q a3h c4e a3 d4q a3h c4q f ee fs es dq c4e a3 d4q a3h" into Tune
  327.     put "tempo 50" into Speed
  328.   end if
  329.   if it is 2 then
  330.     put "c4q. g3e c4q. g3e c4e g3 c4 e gh f4q. de fq. de f d b3 d4 g3h" into Tune
  331.     put "tempo 120" into Tempo
  332.   end if
  333.   if it is 3 then
  334.     put "g3h f4h. eq dq3 c b3 a#w a3q gh g4h. fq eq3 d c b3w" into Tune
  335.     put "tempo 140" into Tempo
  336.   end if
  337.   if it is 4 then
  338.     put "g4e. es cq e g c5h e5e. ds cq e4 f# gh" into Tune
  339.     put "tempo 80" into Tempo
  340.   end if
  341.   if it is 5 then
  342.     put "e4e e eq ee e eq e4e g ce. ds eh" into Tune
  343.     put "tempo 120" into Tempo
  344.   end if
  345.   if it is 6 then
  346.     put "g3e. gs aq g c4 b3h g3e. gs aq g d4 ch g3e. gs g4q e c b3 ah f4e. fs eq c d ch." into Tune
  347.     put "tempo 110" into Tempo
  348.   end if
  349.   if it is 7 then
  350.     put "c#4e c cq c#e c cq c#e c cq g#h g#4e g fq fe d# c#q c#e c a#3q a#h" into Tune
  351.     put "tempo 200" into Tempo
  352.   end if
  353.   if it is 8 then
  354.     put "g3q c4 c c ch dq d#h dq d#h cq a#3w g3q a#w." into Tune
  355.     put "tempo 360" into Tempo
  356.   end if
  357.   if it is 9 then
  358.     put "g4s g g d#h fs f f dh" into Tune
  359.     put "tempo 80" into Tempo
  360.   end if
  361.   if it is 10 then
  362.     put "e5e d# e d# e b4 d5 c a4q. ce e a bq. ee g# b c5q. e4e e5 d# e d# e b4 d5 c a4q. ce e a bq. ee c5 b4 aq." into Tune
  363.     put "tempo 120" into Tempo
  364.   end if
  365.   if it is 11 then
  366.     put "g3 c4 e gh eq g" into Tune
  367.     put "tempo 300" into Tempo
  368.   end if
  369.   if it is 12 then
  370.     put "ce d e f g a b c5 d e f g a b c6e b5 a g f e d c b4 a g f e d cw" into Tune
  371.     put "tempo 200" into Tempo
  372.   end if
  373.   if PlaySomething is empty then
  374.     put "Play" && quote & "Sax" & quote into PlaySomething
  375.   end if
  376.   if Tempo is empty then
  377.     put "tempo 20" into Tempo
  378.   end if
  379.   if Tune is empty then
  380.     put quote & "(c4.)." & quote into Tune
  381.   end if
  382.   put PlaySomething && Tempo && Tune into card field "Test"
  383.   do (card field "Test")
  384.   pass mousedown
  385. end mousedown
  386.  
  387.  
  388.  
  389. -- part 8 (button)
  390. -- low flags: 00
  391. -- high flags: A004
  392. -- rect: left=150 top=149 right=199 bottom=189
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 4100 / 4100
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Tempo
  401. ----- HyperTalk script -----
  402. on mousedown
  403.   global PlaySomething, Tempo, Tune
  404.   put the rect of the target into holder
  405.   put item 1 of holder into horiz
  406.   put item 2 of holder into vert
  407.   get PopUpMenu(" 20 ; 40 ; 60 ; 80 ; 100 ; 120 ; 140 ; 160 ; 180 ; 200 ; 220 ; 240 ; 260 ; 280 ; 300 ; 320 ; 340 ; 360 ; 380 ; 400",8, vert, horiz)
  408.   set the name of me to char 1 to 3 of word it of " 20 40 60 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400"
  409.   if word 1 of the short name of the target is "card" then
  410.     set the name of me to "200"
  411.   end if
  412.   put "tempo" && short name of the target into Tempo
  413.   if PlaySomething is empty then
  414.     put "Play" && quote & "Sax" & quote into PlaySomething
  415.   end if
  416.   if Tune is empty then
  417.     put quote & "(c4.)." & quote into Tune
  418.   end if
  419.   put PlaySomething && Tempo && Tune into card field "Test"
  420.   set the name of me to "Tempo"
  421.   do (card field "Test")
  422.   pass mousedown
  423. end mousedown
  424.  
  425.  
  426.  
  427. -- part 9 (button)
  428. -- low flags: 00
  429. -- high flags: A004
  430. -- rect: left=24 top=220 right=270 bottom=63
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 2123 / 2123
  433. -- text alignment: 1
  434. -- font id: 0
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: Say It
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   global Text, Rate, Pitch
  442.   if the visible of card field "Text" is false then
  443.     send mouseUp to card button "Text"
  444.   end if
  445.   put card field "Text" into Text
  446.   put second word of card field "Rate" into Rate
  447.   put second word of card field "Pitch" into Pitch
  448.   talk Text,Rate,Pitch
  449. end mouseUp
  450.  
  451.  
  452.  
  453. -- part 13 (button)
  454. -- low flags: 00
  455. -- high flags: 0000
  456. -- rect: left=155 top=262 right=292 bottom=185
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 25507 / 25507
  459. -- text alignment: 1
  460. -- font id: 0
  461. -- text size: 12
  462. -- style flags: 0
  463. -- line height: 16
  464. -- part name: Read Aloud Switch
  465. ----- HyperTalk script -----
  466. on mouseUp
  467.   if icon of me is 18359 then
  468.     set icon of me to 3618
  469.     play "Click"
  470.     set icon of me to 25507
  471.     play "Click"
  472.     talk "No please don't read the names aloud.",130, 200
  473.     exit mouseUp
  474.   end if
  475.   if icon of me is 25507 then
  476.     set icon of me to 3618
  477.     play "Click"
  478.     set icon of me to 18359
  479.     play "Click"
  480.     talk "Yes please read the names aloud.",130, 200
  481.     exit mouseUp
  482.   end if
  483. end mouseUp
  484.  
  485.  
  486. if the short name of me is "Yes" then
  487.   set name of me to "No"
  488.   talk "No please don't read the names aloud.",130, 200
  489. else
  490.   set name of me to "Yes"
  491.   talk "Yes please read the names aloud.",130, 200
  492. end if
  493. pass mouseUp
  494.  
  495.  
  496.  
  497. -- part 10 (button)
  498. -- low flags: 00
  499. -- high flags: 8004
  500. -- rect: left=66 top=149 right=199 bottom=105
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 24384 / 24384
  503. -- text alignment: 1
  504. -- font id: 0
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Keybrd
  509. ----- HyperTalk script -----
  510. on mousedown
  511.   go to next card
  512.   pass mousedown
  513. end mousedown
  514.  
  515. on mouseUp
  516.  
  517. end mouseUp
  518.  
  519.  
  520. -- part 11 (button)
  521. -- low flags: 00
  522. -- high flags: A004
  523. -- rect: left=108 top=220 right=270 bottom=147
  524. -- title width / last selected line: 0
  525. -- icon id / first selected line: 29778 / 29778
  526. -- text alignment: 1
  527. -- font id: 0
  528. -- text size: 12
  529. -- style flags: 0
  530. -- line height: 16
  531. -- part name: Pitch
  532. ----- HyperTalk script -----
  533. on mousedown
  534.   global Text, Pitch, Rate
  535.   put the rect of the target into holder
  536.   put item 1 of holder into horiz
  537.   put item 2 of holder into vert
  538.   get PopUpMenu("Normal; 120 ; 140 ; 160 ; 180 ; 200 ; 220 ; 240 ; 260 ; 280 ; 300 ; 320 ; 340 ; 360 ; 380 ; 400 ; 420 ; 440 ; 460 ; 480",14, vert, horiz)
  539.   set the name of me to char 1 to 7 of word it of " Normal 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 420 440 460 480"
  540.   if word 1 of the short name of the target is "card" then
  541.     set the name of me to "100"
  542.   end if
  543.   if the short name of the target is "Normal" then
  544.     set the name of me to "100"
  545.   end if
  546.   put "Pitch" && short name of the target into card field "Pitch"
  547.   if Rate is empty then
  548.     put "140" into Rate
  549.   end if
  550.   if the visible of card field "Text" is false then
  551.     send mouseUp to card button "Text"
  552.   end if
  553.   put card field "Text" into Text
  554.   put second word of card field "Rate" into Rate
  555.   put second word of card field "Pitch" into Pitch
  556.   talk Text,Rate,Pitch
  557.   set the name of me to "Pitch"
  558.   pass mousedown
  559. end mousedown
  560.  
  561.  
  562.  
  563. -- part 12 (button)
  564. -- low flags: 00
  565. -- high flags: A004
  566. -- rect: left=150 top=220 right=270 bottom=189
  567. -- title width / last selected line: 0
  568. -- icon id / first selected line: 13879 / 13879
  569. -- text alignment: 1
  570. -- font id: 0
  571. -- text size: 12
  572. -- style flags: 0
  573. -- line height: 16
  574. -- part name: Rate
  575. ----- HyperTalk script -----
  576. on mousedown
  577.   global Text, Pitch, Rate
  578.   put the rect of the target into holder
  579.   put item 1 of holder into horiz
  580.   put item 2 of holder into vert
  581.   get PopUpMenu(" 1 ; 20 ; 40 ; 60 ; 80 ; 100 ; 120 ; 140 ; 160 ; 180 ; 200 ; 220 ; 240 ; 260 ; 280 ; 300 ; 320 ; 340 ; 360 ; 380 ; 400; 420",14, vert, horiz)
  582.   set the name of me to char 1 to 3 of word it of " 1 20 40 60 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 420"
  583.   if word 1 of the short name of the target is "card" then
  584.     set the name of me to "120"
  585.   end if
  586.   put "Rate" && short name of the target into card field "Rate"
  587.   if Pitch is empty then
  588.     put "140" into Pitch
  589.   end if
  590.   if the visible of card field "Text" is false then
  591.     send mouseUp to card button "Text"
  592.   end if
  593.   put card field "Text" into Text
  594.   put second word of card field "Rate" into Rate
  595.   put second word of card field "Pitch" into Pitch
  596.   talk Text,Rate,Pitch
  597.   set the name of me to "Rate"
  598.   pass mousedown
  599. end mousedown
  600.  
  601.  
  602.  
  603. -- part 14 (button)
  604. -- low flags: 00
  605. -- high flags: A004
  606. -- rect: left=405 top=243 right=293 bottom=444
  607. -- title width / last selected line: 0
  608. -- icon id / first selected line: 4188 / 4188
  609. -- text alignment: 1
  610. -- font id: 0
  611. -- text size: 12
  612. -- style flags: 0
  613. -- line height: 16
  614. -- part name: Info
  615. ----- HyperTalk script -----
  616. on mouseUp
  617.   do short name of me
  618. end mouseUp
  619.  
  620.  
  621.  
  622. -- part 15 (button)
  623. -- low flags: 00
  624. -- high flags: A004
  625. -- rect: left=446 top=243 right=293 bottom=485
  626. -- title width / last selected line: 0
  627. -- icon id / first selected line: 4179 / 4179
  628. -- text alignment: 1
  629. -- font id: 0
  630. -- text size: 12
  631. -- style flags: 0
  632. -- line height: 16
  633. -- part name: Index
  634. ----- HyperTalk script -----
  635. on mouseUp
  636.   do short name of me
  637. end mouseUp
  638.  
  639.  
  640.  
  641.  
  642. -- part 16 (field)
  643. -- low flags: 80
  644. -- high flags: 0007
  645. -- rect: left=197 top=75 right=106 bottom=491
  646. -- title width / last selected line: 0
  647. -- icon id / first selected line: 0 / 0
  648. -- text alignment: 0
  649. -- font id: 0
  650. -- text size: 12
  651. -- style flags: 0
  652. -- line height: 14
  653. -- part name: Test
  654.  
  655.  
  656. -- part 17 (button)
  657. -- low flags: 80
  658. -- high flags: A004
  659. -- rect: left=197 top=106 right=124 bottom=231
  660. -- title width / last selected line: 0
  661. -- icon id / first selected line: 0 / 0
  662. -- text alignment: 1
  663. -- font id: 0
  664. -- text size: 12
  665. -- style flags: 0
  666. -- line height: 16
  667. -- part name: Add
  668. ----- HyperTalk script -----
  669. on mouseUp
  670.   global Deselect
  671.   ask "What would you like to add to this list?"
  672.   if it is empty then exit mouseUp
  673.   lockcard
  674.   put it into temp
  675.   put LowerToUpper(char 1 of temp) into char 1 of temp
  676.   put temp into line (number of lines in card field Deselect) + 1 of card field Deselect
  677.   put SortLines( card field Deselect, "A" ) into card field Deselect
  678.   put crunch(card field Deselect) into card field Deselect
  679. end mouseUp
  680.  
  681.  
  682.  
  683.  
  684.  
  685.  
  686.  
  687. -- part 18 (button)
  688. -- low flags: 80
  689. -- high flags: A004
  690. -- rect: left=230 top=106 right=124 bottom=281
  691. -- title width / last selected line: 0
  692. -- icon id / first selected line: 0 / 0
  693. -- text alignment: 1
  694. -- font id: 0
  695. -- text size: 12
  696. -- style flags: 0
  697. -- line height: 16
  698. -- part name: Delete
  699. ----- HyperTalk script -----
  700. on mouseUp
  701.   global Deselect
  702.   ask "Enter EXACTLY name to delete"
  703.   if it is empty then
  704.     exit mouseup
  705.   end if
  706.   set the Cursor to 4
  707.   put it into dename
  708.   put 1 into linepointer
  709.   put number of lines in card field Deselect into totalines
  710.   Repeat until linepointer >= totalines
  711.     put line linepointer of card field Deselect into thisline
  712.     if dename = thisline then
  713.       delete line linepointer of card field Deselect
  714.       exit repeat
  715.     end if
  716.     put (linepointer + 1) into linepointer
  717.   end repeat
  718.   If linepointer >= totalines then
  719.   end if
  720.   put SortLines( card field Deselect, "A" ) into card field Deselect
  721.   put crunch( card field Deselect) into card field Deselect
  722. end mouseup
  723.  
  724.  
  725.  
  726. -- part 19 (button)
  727. -- low flags: 80
  728. -- high flags: A004
  729. -- rect: left=280 top=106 right=124 bottom=318
  730. -- title width / last selected line: 0
  731. -- icon id / first selected line: 0 / 0
  732. -- text alignment: 1
  733. -- font id: 0
  734. -- text size: 12
  735. -- style flags: 0
  736. -- line height: 16
  737. -- part name: Sort
  738. ----- HyperTalk script -----
  739. on mouseUp
  740.   global Deselect
  741.   lockcard
  742.   set cursor to 4
  743.   repeat with i = 1 to number of lines of card field Deselect
  744.     put LowerToUpper(char 1 of line i of card field Deselect) into char 1 of line i of card field Deselect
  745.   end repeat
  746.   put SortLines( card field Deselect, "A" ) into card field Deselect
  747.   put crunch(card field Deselect) into card field Deselect
  748. end mouseUp
  749.  
  750. --on mouseUp        -- a faster sort
  751. global Deselect
  752. put SortLines( card field Deselect, "A" ) into card field Deselect
  753. put crunch(card field Deselect) into card field Deselect
  754. --end mouseUp
  755.  
  756.  
  757. -- part 20 (button)
  758. -- low flags: 80
  759. -- high flags: A004
  760. -- rect: left=317 top=106 right=124 bottom=375
  761. -- title width / last selected line: 0
  762. -- icon id / first selected line: 0 / 0
  763. -- text alignment: 1
  764. -- font id: 0
  765. -- text size: 12
  766. -- style flags: 0
  767. -- line height: 16
  768. -- part name: Play All
  769. ----- HyperTalk script -----
  770. on mouseUp
  771.   global Deselect
  772.   put number of lines in card field Deselect into lineNum
  773.   put 1 into done
  774.   repeat until done>lineNum
  775.     get line done in card field Deselect
  776.     if word 1 of line done in card field Deselect is "beep" then
  777.       put quote & it & quote into card field "Test"
  778.       do it
  779.     else
  780.       if word 1 of line done in card field Deselect is "Dial" then
  781.         put it into card field "Test"
  782.         do it
  783.       else
  784.         put "play" && quote & it & quote into card field "Test"
  785.         play it
  786.         wait until the sound is "done"
  787.       end if
  788.     end if
  789.     add 1 to done
  790.   end repeat
  791. end mouseUp
  792.  
  793.  
  794.  
  795.  
  796.  
  797. -- part 21 (button)
  798. -- low flags: 00
  799. -- high flags: A004
  800. -- rect: left=374 top=106 right=124 bottom=441
  801. -- title width / last selected line: 0
  802. -- icon id / first selected line: 0 / 0
  803. -- text alignment: 1
  804. -- font id: 0
  805. -- text size: 12
  806. -- style flags: 0
  807. -- line height: 16
  808. -- part name: Find Snds
  809. ----- HyperTalk script -----
  810. on mouseUp
  811.   global Deselect
  812.   set cursor to 4
  813.   lockcard
  814.   push card
  815.   if short name of target is Deselect then put empty into Deselect
  816.   if Deselect <> empty then set the visible of card field Deselect to false
  817.   if Deselect <> empty then set hilite of btn Deselect to false
  818.   set the visible of card field "Find Snds" to not the visible of card field "Find Snds"
  819.   if the visible of card field "Find Snds" is true then
  820.     set hilite of me to true
  821.     put empty into card field "Find Snds"
  822.     set scroll of card field "Find Snds" to 0
  823.     put empty into card field "Test"
  824.   else
  825.     set hilite of me to false
  826.     hide card field "Find Snds"
  827.     click at 0,0
  828.     exit mouseUp
  829.   end if
  830.   answer "List the sounds in this stack or another?" with "Cancel" or "Another" or "This"
  831.   put it into temp
  832.   unlockcard
  833.   lockcard
  834.   if it is "Cancel" then
  835.     hide card field "Find Snds"
  836.     set hilite of me to false
  837.     click at 0,0
  838.   else if temp is "Another" then
  839.     put filename("STAK") into sName
  840.     unlockcard
  841.     lockcard
  842.     if sName is empty then exit mouseUp
  843.     put "You won't be able play these sounds, because they're in another stack"
  844.     put "Use ResCopy to move the sounds you want to this stack" into card field "Test"
  845.     hide btn "Play All"
  846.     go to stack sName
  847.     put Resources("snd ") into fred
  848.     if fred is empty then
  849.       answer "Oops, no sound resources found." with "Sorry"
  850.     else
  851.       pop card
  852.       put fred into card field "Find Snds"
  853.     end if
  854.   else if temp is "This" then
  855.     answer "Just this stack or all sounds available to it?" with "Cancel" or "All" or "Just This"
  856.     put it into temp1
  857.     unlockcard
  858.     lockcard
  859.     if it is "Cancel" then
  860.       hide card field "Find Snds"
  861.       set hilite of me to false
  862.       click at 0,0
  863.       exit mouseUp
  864.     else if temp1 is "All" then
  865.       put "Getting names of sounds in" && short name of this stack && "and the Home Stack"
  866.       go to stack "Home"
  867.       put Resources("snd ") into fred
  868.       pop card
  869.       put script of field "sndField" & fred into fred
  870.       if fred is empty then
  871.         answer "Oops, no sound resources found." with "Sorry"
  872.       else
  873.         pop card
  874.         put fred into card field "Find Snds"
  875.       end if
  876.     else
  877.       put script of field "sndField" into fred
  878.       if fred is empty then
  879.         answer "Oops, no sound resources found." with "Sorry"
  880.       else
  881.         put fred into card field "Find Snds"
  882.         set scroll of card field "Find Snds" to 0
  883.         put "Find Snds" into Deselect
  884.         click at 0,0
  885.         exit mouseUp
  886.       end if
  887.     end if
  888.   end if
  889.   put fred into card field "Find Snds"
  890.   repeat with i = 1 to number of lines of card field "Find Snds"
  891.     put LowerToUpper(char 1 of line i of card field "Find Snds") into char 1 of line i of card field "Find Snds"
  892.   end repeat
  893.   put SortLines( card field "Find Snds","A") into card field "Find Snds"
  894.   put crunch(card field "Find Snds") into card field "Find Snds"
  895.   set scroll of card field "Find Snds" to 0
  896.   put "Find Snds" into Deselect
  897.   unlockcard
  898.   hide msg
  899.   beep 2
  900.   pass mouseUp
  901. end mouseUp
  902.  
  903.  
  904.  
  905. -- part 22 (button)
  906. -- low flags: 00
  907. -- high flags: A004
  908. -- rect: left=440 top=106 right=124 bottom=491
  909. -- title width / last selected line: 0
  910. -- icon id / first selected line: 0 / 0
  911. -- text alignment: 1
  912. -- font id: 0
  913. -- text size: 12
  914. -- style flags: 0
  915. -- line height: 16
  916. -- part name: Install
  917. ----- HyperTalk script -----
  918. on mouseUp
  919.   ResCopy
  920. end mouseUp
  921.  
  922.  
  923.  
  924. -- part 23 (field)
  925. -- low flags: 81
  926. -- high flags: 0007
  927. -- rect: left=197 top=123 right=300 bottom=491
  928. -- title width / last selected line: 0
  929. -- icon id / first selected line: 0 / 0
  930. -- text alignment: 0
  931. -- font id: 3
  932. -- text size: 12
  933. -- style flags: 0
  934. -- line height: 14
  935. -- part name: Music
  936. ----- HyperTalk script -----
  937. on mouseUp
  938.   global holder, PlaySomething
  939.   put the optionkey into keystate
  940.   if the selection is empty then
  941.     set lockText of the target to false -- unlock to enable text editing
  942.     click at (first item of the rect of the target), (second item of the clickLoc)
  943.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  944.     put the selection into holder
  945.     click at 0,0 --disable selection
  946.     set lockText of the target to true
  947.   end if
  948.   put "play" && quote & holder & quote into PlaySomething
  949.   put PlaySomething into card field "Test"
  950.   do (card field "Test")
  951.   pass mouseUp
  952. end mouseUp
  953.  
  954.  
  955.  
  956. -- part 24 (field)
  957. -- low flags: 81
  958. -- high flags: 0007
  959. -- rect: left=197 top=123 right=300 bottom=490
  960. -- title width / last selected line: 0
  961. -- icon id / first selected line: 0 / 0
  962. -- text alignment: 0
  963. -- font id: 3
  964. -- text size: 12
  965. -- style flags: 0
  966. -- line height: 16
  967. -- part name: Instrmt
  968. ----- HyperTalk script -----
  969. on mouseUp
  970.   global holder, PlaySomething
  971.   put the optionkey into keystate
  972.   if the selection is empty then
  973.     set lockText of the target to false -- unlock to enable text editing
  974.     click at (first item of the rect of the target), (second item of the clickLoc)
  975.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  976.     put the selection into holder
  977.     click at 0,0 --disable selection
  978.     set lockText of the target to true
  979.   end if
  980.   put "play" && quote & holder & quote into PlaySomething
  981.   put PlaySomething into card field "Test"
  982.   do (card field "Test")
  983.   pass mouseUp
  984. end mouseUp
  985.  
  986.  
  987.  
  988. -- part 25 (field)
  989. -- low flags: 81
  990. -- high flags: 0007
  991. -- rect: left=197 top=123 right=300 bottom=490
  992. -- title width / last selected line: 0
  993. -- icon id / first selected line: 0 / 0
  994. -- text alignment: 0
  995. -- font id: 3
  996. -- text size: 12
  997. -- style flags: 0
  998. -- line height: 16
  999. -- part name: People
  1000. ----- HyperTalk script -----
  1001. on mouseUp
  1002.   global holder, PlaySomething
  1003.   put the optionkey into keystate
  1004.   if the selection is empty then
  1005.     set lockText of the target to false -- unlock to enable text editing
  1006.     click at (first item of the rect of the target), (second item of the clickLoc)
  1007.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  1008.     put the selection into holder
  1009.     click at 0,0 --disable selection
  1010.     set lockText of the target to true
  1011.   end if
  1012.   put "play" && quote & holder & quote into PlaySomething
  1013.   put PlaySomething into card field "Test"
  1014.   do (card field "Test")
  1015.   pass mouseUp
  1016. end mouseUp
  1017.  
  1018.  
  1019.  
  1020. -- part 26 (field)
  1021. -- low flags: 81
  1022. -- high flags: 0007
  1023. -- rect: left=197 top=123 right=300 bottom=490
  1024. -- title width / last selected line: 0
  1025. -- icon id / first selected line: 0 / 0
  1026. -- text alignment: 0
  1027. -- font id: 3
  1028. -- text size: 12
  1029. -- style flags: 0
  1030. -- line height: 16
  1031. -- part name: Animal
  1032. ----- HyperTalk script -----
  1033. on mouseUp
  1034.   global holder, PlaySomething
  1035.   put the optionkey into keystate
  1036.   if the selection is empty then
  1037.     set lockText of the target to false -- unlock to enable text editing
  1038.     click at (first item of the rect of the target), (second item of the clickLoc)
  1039.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  1040.     put the selection into holder
  1041.     click at 0,0 --disable selection
  1042.     set lockText of the target to true
  1043.   end if
  1044.   put "play" && quote & holder & quote into PlaySomething
  1045.   put PlaySomething into card field "Test"
  1046.   do (card field "Test")
  1047.   pass mouseUp
  1048. end mouseUp
  1049.  
  1050.  
  1051.  
  1052. -- part 27 (field)
  1053. -- low flags: 81
  1054. -- high flags: 0007
  1055. -- rect: left=197 top=123 right=300 bottom=490
  1056. -- title width / last selected line: 0
  1057. -- icon id / first selected line: 0 / 0
  1058. -- text alignment: 0
  1059. -- font id: 3
  1060. -- text size: 12
  1061. -- style flags: 0
  1062. -- line height: 16
  1063. -- part name: Effects
  1064. ----- HyperTalk script -----
  1065. on mouseUp
  1066.   global holder, PlaySomething
  1067.   put the optionkey into keystate
  1068.   if the selection is empty then
  1069.     set lockText of the target to false -- unlock to enable text editing
  1070.     click at (first item of the rect of the target), (second item of the clickLoc)
  1071.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  1072.     put the selection into holder
  1073.     click at 0,0 --disable selection
  1074.     set lockText of the target to true
  1075.   end if
  1076.   if first word of holder is "beep" then
  1077.     put holder into card field "Test"
  1078.     do (card field "Test")
  1079.     exit mouseUp
  1080.   else
  1081.     if first word of holder is "dial" then
  1082.       put holder into card field "Test"
  1083.       do (card field "Test")
  1084.       exit mouseUp
  1085.     else
  1086.       put "play" && quote & holder & quote into PlaySomething
  1087.       put PlaySomething into card field "Test"
  1088.       do (card field "Test")
  1089.     end if
  1090.   end if
  1091.   pass mouseUp
  1092. end mouseUp
  1093.  
  1094.  
  1095.  
  1096. -- part 28 (field)
  1097. -- low flags: 80
  1098. -- high flags: 0002
  1099. -- rect: left=197 top=75 right=93 bottom=341
  1100. -- title width / last selected line: 0
  1101. -- icon id / first selected line: 0 / 0
  1102. -- text alignment: 1
  1103. -- font id: 3
  1104. -- text size: 12
  1105. -- style flags: 256
  1106. -- line height: 16
  1107. -- part name: pitch
  1108.  
  1109.  
  1110. -- part 29 (field)
  1111. -- low flags: 80
  1112. -- high flags: 0002
  1113. -- rect: left=341 top=75 right=93 bottom=490
  1114. -- title width / last selected line: 0
  1115. -- icon id / first selected line: 0 / 0
  1116. -- text alignment: 1
  1117. -- font id: 3
  1118. -- text size: 12
  1119. -- style flags: 256
  1120. -- line height: 16
  1121. -- part name: Rate
  1122.  
  1123.  
  1124. -- part 30 (field)
  1125. -- low flags: 81
  1126. -- high flags: 0007
  1127. -- rect: left=197 top=93 right=299 bottom=490
  1128. -- title width / last selected line: 0
  1129. -- icon id / first selected line: 0 / 0
  1130. -- text alignment: 0
  1131. -- font id: 3
  1132. -- text size: 12
  1133. -- style flags: 0
  1134. -- line height: 16
  1135. -- part name: Text
  1136. ----- HyperTalk script -----
  1137. on mouseUp
  1138.   global holder, PlaySomething
  1139.   put the optionkey into keystate
  1140.   if the selection is empty then
  1141.     set lockText of the target to false -- unlock to enable text editing
  1142.     click at (first item of the rect of the target), (second item of the clickLoc)
  1143.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  1144.     put the selection into holder
  1145.     click at 0,0 --disable selection
  1146.     set lockText of the target to true
  1147.   end if
  1148.   put "play" && quote & holder & quote into PlaySomething
  1149.   put PlaySomething into card field "Test"
  1150.   do (card field "Test")
  1151.   pass mouseUp
  1152. end mouseUp
  1153.  
  1154.  
  1155.  
  1156. -- part 31 (button)
  1157. -- low flags: 00
  1158. -- high flags: 8004
  1159. -- rect: left=403 top=311 right=327 bottom=455
  1160. -- title width / last selected line: 0
  1161. -- icon id / first selected line: 0 / 0
  1162. -- text alignment: 1
  1163. -- font id: 0
  1164. -- text size: 12
  1165. -- style flags: 0
  1166. -- line height: 16
  1167. -- part name: Sounds
  1168. ----- HyperTalk script -----
  1169. on mouseUp
  1170.   set hilite of me to true
  1171.   beep
  1172.   answer "You're already in" && quote & short name of me & quote & "!"
  1173. end mouseUp
  1174.  
  1175.  
  1176.  
  1177. -- part 32 (field)
  1178. -- low flags: 81
  1179. -- high flags: 0007
  1180. -- rect: left=197 top=123 right=300 bottom=490
  1181. -- title width / last selected line: 0
  1182. -- icon id / first selected line: 0 / 0
  1183. -- text alignment: 0
  1184. -- font id: 3
  1185. -- text size: 12
  1186. -- style flags: 0
  1187. -- line height: 16
  1188. -- part name: Find Snds
  1189. ----- HyperTalk script -----
  1190. on mouseUp
  1191.   global holder, PlaySomething
  1192.   put the optionkey into keystate
  1193.   if the selection is empty then
  1194.     set lockText of the target to false -- unlock to enable text editing
  1195.     click at (first item of the rect of the target), (second item of the clickLoc)
  1196.     click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
  1197.     put the selection into holder
  1198.     click at 0,0 --disable selection
  1199.     set lockText of the target to true
  1200.   end if
  1201.   put "play" && quote & holder & quote into PlaySomething
  1202.   put PlaySomething into card field "Test"
  1203.   do (card field "Test")
  1204.   pass mouseUp
  1205. end mouseUp
  1206.  
  1207.  
  1208.  
  1209. -- part contents for background part 56
  1210. ----- text -----
  1211. the sound sampler
  1212.  
  1213. -- part contents for background part 78
  1214. ----- text -----
  1215. Prev Card: the helpful hierarchy
  1216.  
  1217. -- part contents for background part 79
  1218. ----- text -----
  1219. Next Card: keyboard
  1220.  
  1221. -- part contents for card part 23
  1222. ----- text -----
  1223. Beethoven 3
  1224. Beethoven 3a
  1225. Beethoven 3b
  1226. Choir
  1227. Doo
  1228. Halleklujah
  1229. Hey
  1230. Jude
  1231. Marimba
  1232. Now
  1233. Orchestra
  1234. Twilight Zone Theme
  1235.  
  1236. -- part contents for card part 27
  1237. ----- text -----
  1238. Beep
  1239. Beep 3 
  1240. Beep 6
  1241. Beep the random of 10
  1242. Boing
  1243. Car
  1244. Clang
  1245. Click
  1246. Crunch
  1247. Dial "1-408-996-1010"
  1248. DoorClosing
  1249. DoorOpening
  1250. Metal Falling
  1251. SpinCylinder
  1252. Static
  1253. Switch
  1254. Uuh
  1255. Yeow
  1256.  
  1257. -- part contents for card part 28
  1258. ----- text -----
  1259. Pitch 380
  1260.  
  1261. -- part contents for card part 29
  1262. ----- text -----
  1263. Rate 280
  1264.  
  1265. -- part contents for card part 26
  1266. ----- text -----
  1267. Cat
  1268. Dog
  1269. Frog
  1270.  
  1271. -- part contents for card part 25
  1272. ----- text -----
  1273. 0
  1274. 1
  1275. 2
  1276. 3
  1277. 4
  1278. 5
  1279. 6
  1280. 7
  1281. 8
  1282. 9
  1283. A
  1284. B
  1285. C
  1286. Coming
  1287. D
  1288. E
  1289. Evil Laugh
  1290. F
  1291. G
  1292. Get Lost
  1293. H
  1294. Hello
  1295. I
  1296. J
  1297. K
  1298. L
  1299. M
  1300. N
  1301. O
  1302. P
  1303. Q
  1304. R
  1305. S
  1306. T
  1307. U
  1308. V
  1309. W
  1310. X
  1311. Y
  1312. Z
  1313.  
  1314. -- part contents for card part 24
  1315. ----- text -----
  1316. Banjo
  1317. Bass
  1318. Drums
  1319. Flute
  1320. Harp
  1321. Harpsicord
  1322. Piano
  1323. Sax
  1324. Sitar
  1325. Tuba
  1326.  
  1327. -- part contents for card part 16
  1328. ----- text -----
  1329. play "Cat" tempo 110 g3e. gs aq g c4 b3h g3e. gs aq g d4 ch g3e. gs g4q e c b3 ah f4e. fs eq c d ch.
  1330.  
  1331. -- part contents for card part 32
  1332. ----- text -----
  1333. 0
  1334. 1
  1335. 2
  1336. 3
  1337. 4
  1338. 5
  1339. 6
  1340. 7
  1341. 8
  1342. 9
  1343. A
  1344. B
  1345. Boing
  1346. C
  1347. D
  1348. E
  1349. F
  1350. G
  1351. H
  1352. Harpsichord
  1353. I
  1354. J
  1355. K
  1356. L
  1357. M
  1358. N
  1359. O
  1360. P
  1361. Q
  1362. R
  1363. S
  1364. Silence
  1365. T
  1366. U
  1367. V
  1368. W
  1369. X
  1370. Y
  1371. Z
  1372.  
  1373. -- part contents for background part 68
  1374. ----- text -----
  1375. 401,94
  1376.  
  1377. -- part contents for background part 67
  1378. ----- text -----
  1379. Mouse Location:
  1380.  
  1381. -- part contents for background part 82
  1382. ----- text -----
  1383. Free Space:
  1384.  
  1385. -- part contents for background part 83
  1386. ----- text -----
  1387. 50.22 K
  1388.  
  1389. -- part contents for background part 94
  1390. ----- text -----
  1391. About Stack Starter
  1392. Allover Analyzer
  1393. Animated Icons 1
  1394. Animated Icons 2
  1395. Animated Icons 3
  1396. Animated Icons 4
  1397. Animated Icons 5
  1398. Animated Icons 6
  1399. Author
  1400.  
  1401. -- part contents for background part 112
  1402. ----- text -----
  1403. (Script Generator
  1404. (Script Tutor
  1405. (Smart Scripter
  1406. Script of Bkgnd...
  1407. Script of Button...
  1408. Script of Card...
  1409. Script of Field...
  1410. Script of Home Stack
  1411. Script of Stack...
  1412. Sliders
  1413. SoundEdit‚Ñ¢
  1414. Sounds - snd Resources
  1415. Speech Synthesis
  1416. Stack Space Available
  1417. Switches